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ABSTRACT 



This report presents documentation of files, file organi- 



zation and of 42 of the modular program subroutines used 
in a pilot project devised by the Oregon State University 
Computer Center to simulate procedures in the Acquisitions 
Department of the OSU Library. A total of 224 bibliographically 
verified requests for monographs, 30 vendor names and addresses. 



and 62 campus departments having library fund allocations 
comprise the three files constituting the main data base for 
the pilot project. Fixed field formats are used for biblio- 
graphic input; the vendor file uses a variable field input. 
Searching is on fixed and variable lengths and the initial 
methods of accessing elements in the files are through table 
lookup, sequential match, and algorithmic search and retrieval 
strategies . 

The modes of interaction among the computer configuration, 
the programming system and the user in the project are on-line, 
real-time, time-sharing and conversational. Programming is 
in CDC FORTRAN and the hardware used is a CDC 3300 computer 
with 65K storage, an 854 diskpak (eight million alphacharacter 
storage), a CDC 604 tape drive, a 501 line printer, a CDC 405 
card reader and a CDC 210 cathode ray tube (CRT) terminal. 

The report documents work done from May, 1967 through 
January, 1968. Documentation of programs in this report 
assumes the use of a CRT as the I/O device; however, these 
same programs have since been modified for use on the teletype 
primarily as a cheap method of program debugging. Current 
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work on more sophisticated table— based search methods should 
accomodate additional features desired for a library data 
base requiring variable field formats. An area of programming 
not included in this report is the algorithmic search used 
for locating main entry. 
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INTRODUCTION 



The objective of the pilot projec': is to devise an on-line 
computer system model which simulates the ordering procedures 
for the Oregon State University Library's Acquisitions Depart- 
ment. The model utilizes a cathode ray tube (CRT) display 
as a terminal device. The specific procedures which are avail- 
able through the computer system model are: 1) purchase-order 

generation, 2) main entry search of the outstanding order file, 

3) Library of Congress classification number search, 4) unique 
order number search, and 5) complete maintenance of the four 
files which currently make up the order system. 

To handle the diverse requirements of a library acquisi- 
tions system, a series of integrated files have been structured. 
Four files are presently being used: 

(FIXED FIELD) 1) Purchase File . This file contains records 

of requests (vs. orders) for monographs. The records are 
in sequential order; their arrangement is a function of 
when they are received and the processing each must undergo. 
This would currently take care of all the files of requests 
which have been verified, but not ordered. (e.g. hold for 
money file; those batched for sending to a particular 
vendor). When these are assigned an order number, a 
purchase order is selectively generated and the record is 
automatically transferred to the outstanding order file. 
(FIXED FIELD) 2) Outstanding Order File. This file contains 



records of all orders which have been sent out, but have 



not been received. They are arranged alphabetically by 
main entry, or arranged in a rough alphabetical order 
by main entry by an algorithm which uses letters in the 
main entry to calculate a location. 

(VARIABLE FIELD) 3) Vendor File . A list of the 30 vendors 
(and their mailing addresses) used most frequently by 
the Acquisitions Department forms this file. Records 
are arranged in sequential order as they are input; the 
internal storage location corresponds to the code each 
vendor is assigned. 

(FIXED FIELD) 4) Department File . This consists of a list 
of departments, arranged alphabetically. The department 
location in the file corresponds to the code numbers 
assigned to each of them. 

The worksheet for converting records to the purchase 
file and the outstanding order file is shown in Appendix A; 
the worksheet for the vendor file is also shown. The depart- 
mental file contains names of the 62 departments on campus 
which have library fund allocations. 



INPUT TO SYSTEM 
Search Capabilities 

Currently, search capabilities exist for three parameters 
main-entry , Library of Congress classification number , and 



order number. 



1 , Main-entry searches have the greatest flexibility, 
since this is the most common way for the outstanding order 
file to be accessed. Access is through one of two methods 
1) table look-up and 2 ) algorithmic calculation. 

Programming work is now being studied which will take 
advantage of variable length fields and records and will 
include a multi-level index search scheme utilizing pointers 
(not too dissimilar to search systems used by Project INTREX 
at MIT and SPIRES at Stanford University) . Search on variable 
length (e.g. Jones, Arthur C., or Jones, A. C., or Jones, A., 
or Jones) and capabilities to step through the file record by 
record in either direction (A ^ Z or Z ■> A) have been pro- 
grammed. If the entry is incomplete (e.g. if one has only 
an author's last name and one initial Jones, A.) it can be 
searched and subsequent records can be stepped through by 
using the step forward capabilities built into the system. 

If the entry for which one is searching is not contained 
in the file, a message with this information will appear on the 
display screen. 

2. Library of Congress classification number sea.rch is 
a straightforward matching process. The desired LC number is 
typedj after which it is located through a sequential search 
and displayed. Since this search procedure is not economical 
for a large data base, a table-based look up is envisioned. 

If the LC number is not located, a message with this informa- 
tion will appear on the display screen. 



3. Ordsr nuinbsr ssa rch is also a sscjut^ntial matching 



process at this time, though, as with the LC number search, 
this procedure will be changed for a large data base. If the 
order number is not located, the user will be informed by a 
message on the display screen. 

PROCESSING 



1. Equipment 

a. A CDC 3300 digital computer is used as the central 
processing unit for the system. It has a memory capacity of 
65K. It is now operating under the OS-3 time-sharing executive 
developed by the OSU Computer Center. The programming languages 
available under OS-3 include two compilers (FORTRAN and ALGOL) , 
OSCAR (the OSU - developed conversational language) , and the 

CDC 3300 assembly language COMPASS. 

b. A CDC 854 disk with a memory capacity of eight million 

alphanumeric characters is used as a storage unit. 

c. Magnetic tape back-up for all files. 

d. CDC 210 CRT. The on-line input/output terminal used 
for the pilot system is a CDC 210 Display and Entry terminal. 

The screen has the capacity for 1000 alphanumeric characters. 
These characters are buffered from the disk through the CDC 3300 
and onto the display tube screen. Data on the screen plus 
responses to the system determine what is buffered from the 
screei'i back into disk memory. 

2 . Programming 

CDC FORTRAN is used as the main system programming language. 
Most of the CRT utility subroutines are written in COMPASS 



(CDC assembly language) . It is felt that use of the widely 
known programming language FORTRAN will partially solve 
future problems of turnover both in programming staff and 
computer equipment. The logic used for programming the library 
automation project is a modular one in that the programs are 
like a set of blocks, each block representing a subroutine. 

To expand the programming system, blocks are addeu. Each sub- 
routine is independent of the total programming system so that 
if subroutines are added, deleted, or modified, the effects 
on the system as a whole are kept to a minimum. 

3. Environmental operating modes (Conversational real-time mode) 

The program is written to simulate a query-response 
conversational mode between the computer and the user. Actions 
taken by the system depend upon the response of the user 
to choices presented by the system on the display screen. Thus, 
in natural language (vs. programming languages), there is a 
real-time dialogue between the user ^nd the computer allowing 
the user to operate the system with a minimum of technical 
knowledge . 

4 . File maintenance 

a . Outstanding order file 

1 . Add New Record ; New records are added at the end 
of the alphabetically arranged (by main-entry) records in the 
outstanding order file; thus, in searching, the computer 
searches through two sections. The file will be re-alphabetized 
(sorted) automatically in whatever time interval is designated 
(once a day, week, etc.). 
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2. Correct; Corrections, additions and changes to 

i 

records already in the outstanding order file are made by 
locating the record and writing in new information or writing 
over old information when making corrections (a function of the 
CRT device) . 

3. Delete ; Locate the record to be deleted; a YES 

response to the delete subroutine's question: "Is this the 

desired record?", will delete the record. 

b. Purchase file 

Additions of new records are made and stored in the order 
that they are put into the system. Corrections and additions 
to a record can be made at any time in a manner analogous to 

that used in the outstanding order file. 

Records in the purchase file are automatically transferred 
by the system to the outstanding order file upon the printout 
of a purchase order. The routine for deletions in the purchase 
file is the same as that for the outstanding order file. 

c . Vendor file 

1. Additions to the vendor file are added on to the 
end of the file. Code numbers are equivalent to the location 

of the vendor internal programming array. Alphabetical listings 
of vendors and their codes are printed for Acquisitions Depart 
ment personnel so that they can determine the code number of a 
vendor. The computer automatically assigns and displays the 

next code number available for a new vendor . 

2. Corrections; Since records in the vendor file 
are of variable length, there are two methods of correction; 
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a. If the corrected record is the same length 

or loss than the original record, the original 
record is written over and corrected in place, 
b. If the corrected record is longer than the 
original record, the corrected version is 
added to the end of the vendor file and access 
is made possible from the old location code 
to the new location code through programming 
directions. 

3. Deletions: The vendor record to be deleted is 

located and is deleted by the user's YES response to the 
system's question: "Is this the desired record?" 

d. Departmental files 

the present time the departmental file consists of 
62 departments arranged alphabetically. Their alphabetical 
position corresponds to their memory location which is equi- 
valent to their code number. This file is small and due to 
University funding arrangements, normally changes only once a year. 
Therefore, no programming for deletions, additions, and correc- 

r 

tions has been done, since it is felt that this can be taken 
care of most economically by generating a new file. 




OUTPUT IS GIVEN IN TWO MEDIA 



Screen display is available for all questions, answers and 
displays of a file record. 

2. Hardcopy is available for any purchase order or outstanding 
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order. Work is now underway towards a hardcopy of any 
displayed response. 

SPECIAL FEATURES 

1 . Vendor status 

The system determines how many orders in the purchase 
file have been issued to a particular vendor. This capability 
helps in batching and sending orders to vendors. 

2 . Multiple-title main-entries 

In the purchase file, where there is more than one title 
for a particular author, the first record for that author 
is displayed upon request. The system automatically searches 
for and displays subsequent titles by that author until the 
user writes STOP, or until the last record for that author is 
displayed. The last record will be labeled EOF (end-of-f ile) . 

FUTURE CAPABILITIES AND SUGGESTIONS 

1. The programming for the pilot project is being modified 
for use on a teletype. Although the system will be 
programmed to work on a CRT terminal, on-line, time- 
shared debugging is much cheaper via teletype. Programs 
developed on a teletype can be converted for use on a 
CRT with little program modification. 

2. On the main entry search in the outstanding order file, 
the first record for an entry with several records will 
display : 
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3.. th© nuint)Q3r of irGCOirds undGir thGt ©ntiiry / oir 
b. READY (and search for the next record (s) until 
END OF Fl'.LE appears on the last or only record) 
so that step forward will not have to be used with 
every main-entry search. 

3. The information that the user entered should be displayed 
at the same time as the NOFIND information statement 
("Either the record is not on file or you used the incorrect 
format to enter information") , so that the user will know 
whether his input was in error. 

4. Make the main-entry either variable field or a longer fixed 

field to assure a complete main-entry. Some drawbacks to 
the use of a variable field include: a) the need to place 

the main-entry at the end of each record, resulting in the 
whole record being buffered in for a search, which extends 
response time and increases costs; b) updating of the file 
using a variable length record means more intricate pro- 
gramming . 

5. Information statements should make it clear that step forward/ 
step backward capabilities do not exist for order number or 

LC number searches since the purchase and outstanding order 
files are organized by main— entry . 

6. Search capability on series, which might include linking 

of records . 

7 . Main— entry search should be coupled with title search 

(for entries like Shakespeare and U. S. Department of 
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8 . 



9. 



10 . 



11 . 



12 . 



Interior) for more rapid access to the desired record. 

File security for updating (correction, deletion and 
addition) of outstanding order and purchase files. 

Hardcopy printout for each Oregon State University department 
at convenient intervals (i.e. once e month, once a 
quarter, etc.) should give the following information: 
a) the status of books they have requested (on order, in 
process, etc.) b) budget status report. 

Modify the worksheet and put the order number where the 
price is - that way the whole record would not have to be 
buffered in for the order search (just the first 75 characters) . 
Build in a procedure for automatic claiming (e.g. match the 
date of order, January 1 for example, with a January 1 
card put in on January 30, for a 30 day claim period) . 

Management Information System for the Acquisitions Department. 
With certain programming plus information contained in files 
questions of the following type could be answered: 

a. How many orders in a certain time period (or 

at a certain time) have been placed with a book 

vendor? 

b. What is the average length of time it takes to 
order from a particular vendor? 

c. How many orders are requested during certain 
months, ordered during certain months, received 
during certain months? 
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EXPLANATION OF FIXED FIELDS ON THE OUTSTANDING 
ORDER FILE WORKSHEET ** 



Card 

#1 



Card 

#2 



Card 

#3 



Card Columns 

1 . 1-20 
2 . 21-68 

3. 69-75 

4. 76-79 

5. 80 



1. 1-60 
2. 61 

3. 62-64 

4. 65-70 

5. 71-76 

6. 77-78 

7 . 79 

8. 80 



1. 1-40 

2. 41-68 

3. 69-72 

4. 73-77 

5. 78-79 

6. 80 



Data Element 



LC Classification Number 
Main Entry ** 

Price 

Publication Date 
Punched-card sequence no. (1) 



Title 

Number of volumes 
Department Code (e.g. 001= 
Agricultural Engineering) 
Date of Request 
Date of Order 
Number of Edition 
Reserved for Future Needs 
Punched-card sequence no. (2) 



Series 
Publisher 
Vendor 
Order No. 

Reserved for Future Needs 
Punched-card sequence no. (3) 



** Although input of the main entry is restricted to a fixed 
field, there is currently a working capability for searching 
on a variable length (s.g. Smith, John Allen, or Smith, John A, 
or Smith, J, or Smith, etc.) within a fixed field. 
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EXPLANATION OF VARIABLE FIELDS ON THE VENDOR NAME 

7vxTT>. lArnPKfiHEET 



A maximum of 5, 48-column cards can be '^sed for the 

vendor address. The end of each line. 

■PlaQQsd with a dollar sign ($) # gxcgp ^ 

Se^end of the last line is flagged with an asterisk (*) , 
denoting the end of that particular vendor record. 

The use of variable fields for the vendor 

Of ^hHLdor reLrd is substituted for the vendor code on 
the purchase order which is sent out. 

The vendor code is equivalent to the ^“^^'"neSes- 

of the vendor record^on^the^disk;^there^ neces 

is’^it^'necessLy to keep track of code-number assignments since 
tLse are assigned automatically by the computer. 
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OREGON STATE UNIVERSITY 

COMPUTER CENTER CONFIGURATION* 

(1967) 



CDC 3300 Computer 

65K of core memory 
6 I/O channels 

Multiprogramming Time Sharing 

Paging 



Amount 

6 

3 

3 
1 
1 
2 
1 
1 

4 
1 

30 



Type of Device 

CDC 604 tape drive (200,556,800 bpi) 

CDC 854 disk drive 

CDC 852 disk drive 

CDC 501 line printer 

CDC 505 line printer 

CDC 3276 multiplexor (16 lines) 

CDC 405 card reader 
CDC 415 card punch 
CDC 210 CRT 

CDC 211 CRT + data set 
KSR 33 & 35 teletypes 



*The configuration has experienced several changes in 
the past nine months, the most notable being the 
addition of a CDC 814 mass storage disk. 
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APPENDIX C 



EQUIPMENT SET-UP PROCEDURES 



Turn on CRT 
Master clear CRT 
Clear CRT 

Mount tape 1209 on unit 3 

Mount disk 7629 (852/01) on free 852 disk drive 

Load deck in card reader 

Press "motor on" button on card reader 

Press "ready" button on card reader 

On console 

Press " stop" button 
Press "MC" button 
Press "autoload" button 
Press " select jump 6" button 
Console types; "date" 

Type in current date 
Console types; " inp" 

Press "finish" button 
Console types; "out" 

'Type "16" 

Press "finish" Vutton 
onsole types; "run" 

Press "select jump 6" button 
Press "finish" 

If program not accepted* reload deck in card reader, 
"MI" button, type "/", press "MI" button. 




press 
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APPENDIX D 




Program DISPLA Y 

First the title page is displayed. After the SEND button is 
pushed, the choice of files is displayed. The user indicates 
which file he wishes to work with and either the OSOFILE 
(outstanding orders file) , VENDFILE (vendor file) , PFILE 
(purchase file) or SIGNOFF subroutine is called. 

If the user chooses to work with the outstanding order 
file a set of choices is presented pertaining to this file. 
Capabilities and their respective subroutines are: 1) step 

forward through the file one record at a time (by calling 
RECORD) , 2) step backward one record at a time (BACK) , 3) 
search for a record by its main entry (SAUTH) , 4) search for 
a record by its LC classification number (SLC) , 5) search for 
a record by its order number (BORDER) , 6) move to a different 
file (FILECH which brings the user back to the original set of 
choices) , 7) correct a record (CORECT) , 8) delete a record 
from the file (DELETE), and 9) add a record directly into the 
outstanding order file (OSONEW) . 

If the user chooses the vendor file the following options 
are available: 1) correct a record (VCORRECT) , 2) delete a 

record (VDELETE) , 3) add a record (VADD) , 4) ask for display 
of a vendor by inputting vendor code (SVCODE) , and 5) move to 
a different file (by returning to FILECH) . 

If the purchase file is selected the following choices 
are presented: 1) vendor status - the number of orders 

currently waiting to be batched to a particular vendor (SVEND) , 
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2) hardcopy of the purchase order (PURCHAS) , 3) add a new 
record (NEWREC) , 4) search the purchase file by order number 
(PSORDER) , 5) correct an existing record (PURCRDT) , 6) delete 
a record (PURDELT) , 7) move to a different file (by returning 
to FILECH) , and 8) search the file by main entry (PSAUTH) . 

The SIGNOFF action results in a break in on-line contact 

with the computer. 
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SUBROUTINES AVAILABLE 
(Alphabetical Order) 



Name 



Number 



ARRANGE 

BACK 

CORECT 

DELETE 

ERROR 

FILECH (M) 

FINDDEPT 

FINDVEND 

HARDCOPY 

INARRAY (IF IR, I SEC) 

LASTPAGE 

LOAD I SC 

NEWREC 

nofind 

NOFLAG 
OSOFILE (K) 

OSONEW 
PFILE (K) 

PSAUTH 

PSORDER 

PURCHAS 

PURCRDT 

PURDELT 

record 

RJ ANSWER 
SAUTH 
SETMARK 
SIGNOFF (L) 

SLC 

S ORDER 

SVCODE 

SVEND 

TITLPAGE 

TOOFAR 

TOO SMALL 

UNAVAIL 

VADD 

VCORRECT 

VDELETE 

VENDFILE 

WRONG 



3300 

1000 

200 

1100 

2800 

2000 

3500 

3600 

3000 

4400 

3100 

1400 

100 

700 

2900 

600 

1500 

2100 

3800 

1600 

1900 

1700 

1800 

400 

0000 

800 

2700 

1300 

900 

300 

3200 

2200 

2600 

2300 

2400 

500 

4300 

4100 

4200 

4000 

1200 



o 
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SUBROUTINES AVAILABLE 
(Numerical Order) 


Name 


Number 


RJ ANSWER 

NEWREC 

CORECT 

BORDER 

RECORD 

UNAVAIL 

OSOFILE (K) 

NOFIND 

SAUTH 

SLC 

BACK 

DELETE 

WRONG 

SIGNOFF (L) 

LOAD I SC 

OSONEW 

PSORDER 

PURCRDT 

PURDELT 

PURCHAS 

FILECH (M) 

PFILE (K) 

SVEND 

TOOFAR 

TOOSMALL 

TITLPAGE 

SETMARK 

ERROR 

NOFLAG 

HARDCOPY 

LASTPAGE 

SVCODE 

ARRANGE 

FINDDEPT 

FINDVEND 

P SAUTH 

VENDFILE 

VCORRECT 

VDELETE 

VADD 


000 

100 

200 

300 

400 

500 

600 

700 

800 

900 

1000 

1100 

1200 

1300 

1400 

1500 

1600 

1700 

1800 

1900 

2000 

2100 

2200 

2300 

2400 

2600 

2700 

2800 

2900 

3000 

3100 

3200 

3300 

3500 

3600 

3800 

4000 

4100 

4200 

4300 



INARRAY (IFIR,ISEC) 4400 



SUBROUTINE ARRANGE (I1,I2,I3,I4,I5) 



For n variable length of characters, the coriiputer checks 
each character to see if it is either a $ or an * . If it is 
a $, the number of this character location is computed and 
stored, this continues for each $ until an * is reached. 

When an * is found, the location of it is computed and stored, 
and all of the locations are transferred to the calling program. 





27 



SUBROUTINE ARRANGE (II, 12 , 13 , 14 , I5) (cont.) 




Var iables 



BLANK = one blank 

ICK - location of $ in memory (used as a testing device) 

JCK - location of * in memory (used as a testing device) 
11 , 12 , 13 , 14 , 15 - parameters used to transfer flag locations to the 

calling program 

ITEMP ( J) - equivalent to each character in the vendor record 
K- counter 
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SUBROUTINE BACK 



Steps backward to next record and checks to see if the 
beginning of the file has been reached. If not, it displays 
the record; if it has gone beyond the first record, it calls 
TOO SMALL. 




Variables 



IBLOCK - block location of desired record. 



1 



SUBROUTINE CORECT 



User chooses which entr\' he wishes to search on. Once 
the record has been found, the computer checks to see if 
the marker is after the last piece of information. If not, 
Setmark is called and the record is redisplayed. If it is 
all right, the computer checks to see if the author's name 
begins with the siime letter as it had been before any changes. 
If it is the same, a hardcopy is made and the record is 
buffered onto the disc. If it is not the same, the record 
is transferred to the end of the file and the record in the 
old location is deleted. 





30 



SUBROUTINE CORECT (cont.) 
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SUBROUTINE CORECT (cont.) 



Variables 



name on the desired 



CHO - memory display buffer 
K - storage buffer 

JAUTH - equivalent to first letter of author' 

record . ^ . 

IDIS(185) - location of middle of order number in the record on 

the display screen 
IDIS - memory display buffer 

JTEMP(l) - equivalent to first letter of author's name 
ITEMP(l) ~ equivalent to first letter of author s name 
IPLACE(29) = MOUT - location of last record of the file 
IBLOCK - location of desired record 



SUBROUTINE DELETE 



Asks if a displayed record is the desired record. If 
it is, it is deleted; if not, the process of searching and 
displaying is repeated.**(Note : the user can now type in MOVE 
if he wants to return to a set of choices, and leave this 




Variables 



IRES - memory display buffer 
IBLOCK - location of desired record 
IANS - storage buffer 
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SUBROUTINE ERROR 



Displays a message. 




Variables 



IREP - memory display buffer 
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SUaPOUTINE FILECH(M) 



D i Hp 1 ay r. a mo b s . igo . 




Variables 



M - storage buffer 

IDIS - memory display buffer 



o 
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SUBROUTINE FINDDEPT 



Scarche;^ for a dc^jired department code-. If it is found, 
it in b'iffer€‘d into memory: if it is not found the message: 
Department Not Ftjand, is displayed. 




Variables 



M - location of desired department code 
IDEPT - department code desired by user 
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SUBROUTINE FIND VEND 



Searches lor ci i)articular vendor. If it is found, 
record is bullered into r.iemory; if it is not found, the 
message: vendor not found, is printed. 




Variables 



L - CO inter 

IVEN - vendor code desired by user 
IVCODE - vendor code on record 




the 
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SUBROUTINE HaRDCOPY 



Typos a record on the line printer. 



^ Begin 





38 



o 



SUBROUTINE INARRAY ( IFIR, I SEC) 



Rearranqes a vendor record in memory so that the disc 
may be packed as much as possible. Each line of the record 
is restored into the variable IVENREC(I) thus eliminating 
undesired blank locations. 
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SUBROUTINE INARRAY ( IFIR, ISEC) (cont . ) 





Variables 

KTRANS - variable specifying whether or not a flag has bee 
found and whether or not it is an * . 

IFIR - location of " st character of each line 

ISEC - location of fj.ag 

ICK - location of $ in memory 

JCK - location of * in memory 

J - counter 

IVENREC(I) - array with entire vendor record 
IVNAME ( J) - array with a line of the vendor record 



SUBROUTINE LASTPAGE 



Displays 



o 

ERIC 



message 
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SUBROUTINE LOADISC 



Loads the department file, vendor file, and outstanding 
order file from tape onto disc. 




SUBROUTINE LOADISC (cont.) 






ettr (1) =Al.pha (I 



No 



IPLACE (I+l) =LOCUS 
LOCUS=LOCUS+l 



Buffer out 
record onto disc 



Yes 




Yes 







j 1=1+1 








No 





Buffer in 
i IHOLD, IVENREC(l) 







/ 


^ . - 


Backspace 31 j 



Yes 



IENDVEND=L 


> 


/ 


Return 








Buffer in 
entire vendor 
record from tape 




> 


No 

^ 


Buffer out 


entire 


vendor 


record to disc 
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SaBROQTINE LOADISC (cont.) 



Var iabl es 
LOCUS - CO an ter 

IPLACE (28) =300 - location of first record of the outstanding 
order file new records. 

L - counter 

601 - first location of department file 
1 - first location of outstanding order file 

lENDDEPT - location of first available space after department 
file 

701 - first location of vendor file 

ItiOLD - variable specifying length of variable field for each 
vendor record 

IVENREC - array containing vendor record 

lENDVEND - location of first available space after vendor file 
IVENREC (IHOLD) - last word of vendor record 
LETTR(l) - first letter of main entry 
ALPHA (I) - array containing the alphabet 

IPLACE(I+1) - I'^c-it L('>n of last record on each alphabetical 
block 

INDEPT(l) - first word of department name 
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SUBROUTINE NEWREC 



Operator types in new record, line by line. The record 
is redisplayed for any necessary changes. The computer 
checks to see if the marker is after the last piece of infor- 
mation. If it is, a hardcopy is printed out. If not, the 
computer re-displays the new record previous to corrections. 



Begin 



I BLANK -- 4H 



Displays headings line 
by line. Waits for 
answer after each line 
Encodes headings and 
decodes answers. 



Displays message: 

The record that will appear 
is a copy of what I read 
from your last entry. 

Please check it over care- 
fully. Push send key. 



Redisplays entire record 



Call Reset 






f 


Call 


Wait 




> 




Call , 




Answer 




Yes 




Decode entire record 



Call Hardcopy 




> 


Yes 

f 


Buffer out 
record 


> 


f 


Return 








> Call Setmark 



Call 

Nofind 




f 


Return 








SUBROUTINE NEWREC (cont.) 



Variables 

JK - location of last record on the file 
IDIS - memory display buffer 
JDIS - storage buffer 

JDIS(185) - location of middle of order number in the record 

being displayed 
MESS - memory display buffer 
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SUBROUTINE NOFIND 



Displays a message. 






Variables 



lERR - memory display buffer 



SUBROUTINE NO FLAG 



Displays a message. 




Variables 

IRES - memory display buffer 
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SUBROUTINE OSOFILE (K) 



Displays a 



Variables 

IDIS - memory 
K - parameter 



message . 






Displays message: 

Make a choice 

1. Step forward 

2 . Step backward 

3 . Main entry search 

4. LC search 

5 . Order number search 

6. Move to different file 

7. Correct existing record 

8. Delete existing record 

9. Enter new record 



Call 


Reset I 


> 




1 Call Wait 


> 




Call Answer 






Return 




display buffer 
, transfers number of choice 



to calling program 
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SUBROUTINE OSONEW 



Operator types in new record, line by line. The record 
is redisplayed for any necessary changes. The computer checks 
to see if the marker is after the last piece of information. 

If it is, a hardcopy is made; if not, the computer redisplays 
the record previous to corrections. Circumvents the 2— phase 



proce;-s of input and requesting - could be used for rush request 
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SUBROUTINE OSONEW (cont.) 



Var ifibles 



JI - location of last record on the file 
IDIS - memory display buffer 
JDIS - storage buffer 

JDIS(185) - location of middle of order 

on the display screen 
MESS - memory display buffer 



number 



SUBROUTINE PFILE (K) 



Displays a message. 




Variables 

IDIS - memory display buffer 

K - parameter, transfers number of choice to calling progr 





SUBROUTINE PSAUTH 



User types in desired author. The computer searches for 
the first record with this name. While this record is being 
displayed, the computer continues to search for the next record 
with the same author. When it is found, READY is displayed on 
the screen. If the user wants the record that is already being 
displayed, he types STOP on the first line of the screen. However, 
if he wishes to continue searching, he presses the send key and 
the next record is displayed. 
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SUBROUTINE PSAUTH (Cont.) 





Encode and 
display record 



Return 



Call No find] 





Ye 




^ Return 




Return 



7F 



Call Wait 



^Display message: 
End of file 



SUBROUTINE PSAUTH (cont . ) 



Variables 



CHO - memory display buffer 
JAUTH - storage buffer 

LI - number of letters before the flag in an author s name 
ICK - location of flag in memory (used as a testing device) 

501 - location of first record in purchase file 
JK - location of last record in purchase file 

I TEMP (K) ~ equivalent to name of author on the recoro. However, 

its length varies according to the number of letters typed 

by the user 

JTEMP (K) - name of author typed in by user 

M - counter 

IDIS - memory display buffer 
IANS - storage buffer 
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SUBROUTINE PSORDER 



Operator 
searches for 
the record is 



types in desired order number. The subroutine 
it throughout the file. If and when it is found, 
displayed. 




SUBROUTINE P BORDER (cont.) 



Variables 



KORNO - location of order number typed in 

JORNO ~ order number typed in 

JK - location of last record on file 

lORNO - order number on record 

IDIS - memory display buffer 

IBLOCK - location of displayed record 



SUBROUTINE PURCHAS 



Displays a record requested by the user. The department 
code and vendor code are replaced by their name and name and 
address, respectively. If the displayed record is to be used 
for a purchase order, a hardcopy is produced, the record is 
deleted from the purchase file, and is transferred to the out- 
standing order file. If the displayed record is not desired, 
the se L'ching process is repeated for a different vendor code. 
Order forms are produced for all records under a given vendor 

code . 
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SUBROUTINE PURCHAS (cont.) 
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SUBROUTINE PURCHAS (cont.) 




Yes 




SUBROUTINE PURCHAS (cont.) 
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SUBROUTINE PURCHAS (cont.) 



Variables 



IBLANK - four blanks used as a testing device. 

JDIS - memory display buffer 

JVEN - vendor code typed in by user 

KVEN • equivalent to JVEN 

501 - location of first record in the purchase file 
II - counter 

JK - location of last record of purchase file 
IVEN - vendor code on record in mem.ory 
IDEL - location of desired record 
IDEPT - department code 
NI - counter 

INDEPT(NI) - array containing department name 

11=12=13=14=15=0 - parameters corresponding to the following 
variables: Jl, J2 , J3 , J4 , K1 , K2 , K3 , K4 - variables 

designating the beginning and ending locations of each line 
of the vendor record. 

lARRAYA ( J) , lARRAYB ( J) , lARRAYC ( J) , lARRAYD ( J) , lARRAYE ( J) - line 
buffers for vendor record 
IVENREC(I) - array containing the vendor record. 

IDIS - memory display buffer 
NO, lYES - testers 

IPLACE(28) - location of last record of Z-block on outstanding 
order file. 

MOUT - location of last record of new records on the outstanding 
order file. 



SUBROUTINE PURCRDT 



Displays record, checks to see if the marker is after 
the last piece of information. If it is not, the record is 
redisplayed; if it is, the record is decoded and a hardcopy 
is produced. 
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SUBROUTINE PURCRDT (cont.) 



Var iables 



IDIS - storage buffer 
IDIS(185) - location 

being displayed 
IBLOCK - location of 



of middle of order number in the record 
desired record 



IDIS - memory display buffer 



SUBROUTINE PURDELT 



Op 0 r 3 to]T typGS in a yes, no^ or cliangG rosponso vvith 
rG^Brd to tins dispisyod rocord* If tliG rosponsG is yGS# ttiG 
iTGCord is dGlGtGd; if it is no# subroutinG PsordGr is ccillGd, 
if it is cliQngG# tliG systGin is roturnod to FILECH# cin orror 
mGs saqe is di splayed for any other response* 



c 



Begin 



^ 

± . 

Call Psorder ) 



-<-<£) 



Displays message: 

Was that the desired 
record. Yes, no, or 
change response is 
expected . 



Call Reset 



Call Wait 






I YES = 
NO = ^ 
I CHAN = 


4H YES 
m NO 
4HCHAN 

- 



Call Answer 




(£) 



LC(1) = 4HZZZZ 
lAUTH(l) = 4HZZZZ 
IVEiST = 9999 
lORNO = 99999 




No 



^ Call Nofind 



\ 


No 

< 


\ 




1 Buffer out record 


Call Wrong 












Return 
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Return 




SUBROUTINE PURDELT (cont.) 



Variables 



IRES ” memory display buffer 
IANS - storage buffer 

IBLOCK - block location of desired record 



SUBROUTINE RJANSWER (cont.) 




SUBROUTINE RJANSWER (cont.) 



Variables 



IRAY - word array output 
ICHAR - character array 

IDUMB - dummy array i 

IFILL - value determining zero or blank rill 

N - number of characters 
M — number of computer words 
JRAY - word array input 
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SUBROUTINE RECORD 



Checks to see if the operator has 
beyond the end of the file. If so, it calls TOOPAR, 

it displays the record. 




^ Call TOOFAR ] 1 Return 



Call ERROR 



H 



Return 





SiTes 


Buffer in, encode, 
and display record 
on screen 




/ 


Call Wait ] 




f 


1 Return | 







End 



Variables 

IBLOCK - location of desired record 
IPLACE(28) - location of last record on file 

i?LACE^array*^-^location^of end record of each alphabetical 
blLk! Lwever, IPLACE(l) = 1, is the first location of 

the file. 



SUBROUTINE RJANSWER 



Reads characters off the CRT screen, and, depending upon 
the format, right- justifies the characters, and zero . 

(0)^ or blank-fills’ the stored representation for output into 

a fixed field. 
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SUBROUTINE SAUTH 



Se<irchr.s lor 
by the operator, 
i s d i :3p 1 ayed . I f 
displayed. 



a particular author which has been typed in 
I f the record with this author is found/ it 
it is not found/ a Call No find message is 




JA “ 301 
JB = IPLACE(29) 



5k_ 

Displays message: 

Please type author on line 
1 according to the format 
shown below. 

JoneS/ Peter Q.$ 
or 

Jones / Peter Quency$ 
or 

Jones / Peter Quency - Doe/ 
I John M.$ 



:kl 



Call Reset 


- ' 




Call 


Wait 


> 


✓ 


Icall Answer 




t 


ICK = 4H $ 




Yes 
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SUBROUTINE SAUTH (cant.) 
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SUBROUTINE SAUTU (coni.) 




Var iables 



CHO - memory display buffer 
JAUTH - storage buffer 

_ location of flag in memory (used as a testing device) 

Lj — number of letters before the flag in an author s name 
JTEMP(l) - first letter of author's name typed by the user 
ALPHA (I) - alphabetical array, when 1=1, equals A-block 

JA = IPLACE (I) -1-1 - location of first record in desired alphabetical 
block 

JB = IPLACE (I-f-1) - location of last record in desired alphabetical 

block 

MOUT = IPLACE (29) - location of last record of new records 

ITEMP(I) - equivalent to name of author on the record. However, 
its length varies according to the number of letters typed 
by the user 

IBLOCK - location of desired record 
IDIS - memory display buffer 

301 - location of first record of new records 
IPLACE (29) - location of last record of new records 
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SUBROUTINE SETMARK 



Displays a message. 





Variables 



IRES - memory display buffer 
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SUBROUTINE SIGNOFF(L) 



off. 
to the 

calling program. If L=1 the last page is displayed and the 
system is no, longer on-line, if L=0 the program is returned 



Checks to see if operator really wants to sign 
The parameter, L, transfers the response, yes or no 




Variables 



IRESP - memory display buffer 
IANS - storage buffer 

L - parameter used to transfer the yes or no response. 



SUBROUTINE SLC 



The user types in the desired LC number, 
through the entire file, including new records 
is fou'id. If it is found, it is displayed; if 



The computer searches 
until the record 
not, a call NOfind 



mc‘ssaqe is displayed. 
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SUBROUTINE SLC (cont.) 



> 


f 


J = J+1 







J > M5 



NO 









Yes 

f 


MOUT = IP LACE (29) 








Buffer 1-: 


i -| 

1 record 


_l 


t 


Encode and 
display record 



Call Wait [ 






Call 


Reset 



Return 
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SUBROUTINE SLC (cont.) 




Variables 

CHO - memory display buffer 
LCC - storage buffer 

MZ = IPLACE(28) - location of last record of the Z-block 
LC(I) - LC number in the record 
LCC (I) - typed- in LC number 

MOUT = IPLACE(29) - location of the last record of the new record 
IBLOCK - location of desired record 
IDIS - memory display buffer 
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SUBROUTINE SORDER 



operator types in desired order number. The computer 
search^ through the file for the 

If it is found, it is displayed. If it is not found, a Call 
Nofind message is displayed. 



C 



Begin 





f 


Displays message: 
Please type order num- 
ber on first line. 





f 


|call Reset 


> 


/ 


Call Wait 


% 


i 


fcall Answer] 




f 


MZ = IPLACE(28) 








^ Call Nofind H Return 



JCes ^ MOUT = IPLACE(29) 




Encode and 


^ 


Call Wait 


) 


Call Reset 


^ Return J 


display record 
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SUBROUTINE BORDER (cont.) 




Variables 



CHO - memory display buffer 
JORNO - storage buffer 

KORNO - location of typed-in order number 

MZ = IPLACE(28) - location of last record of Z-block 

lORNO - order number in displayed record 

MOUT = IPLACE(29) - location of last record in the new 
301 - location of first record of new records 
IDIS - memory display buffer 
IBLOCK - location of desired record 




records 
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SUBROUTINE SVCODE 



Operator tvpos in desired vendor code, on which he wishes 
to search. The systen\ searches for the vendor record with that 
code. It is then found and displayed, or if the code does not 
exist, an information statement is displayed informing the user 
of this. 





81 



SUBROUTINE SVCODE (cont.) 
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SUBROUTINE SVCODE (cont.) 



Variables 



ITEMP - first letter of record 

KTEMP - storage buffer 

KVEN - code typed in by user 

IVCOUE - vendor code on record 

IL - position before the first vendor record 

I END VEND - 

IlIOLD - length of record 

KIIOLD - storage location of vendor record 
IVENREC - array containing vendor record 



SUBROUTINE SVEND 



OpGiTcitoiT types in desired vendor code. The numlDer of 
records with that code are counted and the total number is 
displayed. 
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SUBROUTINE SVEND (cont.) 



Variables 



N - record counter 

IDIS - memory display buffer 

KVEN - storage buffer 

JVEN - memory location of typed-in vendor code 
IVEN - vendor code on each record 
IANS - memory display buffer 
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SUBROUTINE TITLPAGE 



Displays 



massage 




nd 



SUBROUTINE TOOF'vR 



Displays a message 



C 



Begin 





r , 


Displays message: 

You have requested a record 
beyond the last physical 
record . 


s 


f 




Call Reset 


1 


j 


f . 


Call Waitj 




f 




Return | 







End 



Variables 

IANS - memory display buffer 



87 



o 

ERIC 



SUBROUTINE TOOSMALL 



Displays a message. 




Variables 

IREP - memory display buffer 
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SUBROUTINE UNAVAIL 



Displays a message. 




Variable 



B - memory display buffer 
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SUBROUTINE VADD 



A user types in a new vendor record which , 

the vendor file. The vendor code ^ is 

is displayed for the user's information. If the mark 
not set after the entered record, the record must be 

entered . 



Begin 
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SUBROUTINE VADD (cont.) 




No 



) J=J 


-1 


. J 


1 „ 


1=1+1 1 



jjEVENRE C (J) =I D IS (I) 



<Tl > 63 




I iP=4*J-3 

i IQ=4 *J_ j 




i 


No 

1 


1=1+1 








Displays message: 
Either the last line 
of your entry did not 
end with an * or the 
marker was not set 
, after the *. Please 
Ijretype the record. 



y 




[call Wait 







1 





iReturn 






jcall Nofind ^ 



Yes 


KENDVEND= 


^ 7 


IENDVEND+700 









Locate 
KENDVEND^ 



Yes 



' 

Buff 
out en 
vend 
recc 


6 

er 

it ire 

[or 

»rd 




^ 


IEND\ 
1 I END VI 


7END= 

SND+1 



Return 



r^ 
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SUBROUTINE VADD (cont.) 



Variables 

lENDVEND - vendor code of entirely new recor 
IVCODE “ vendor code on meinory record. 

JDIS - memory display buffer 

IVEN - vendor code of corrected record. 

j - counter . 

IVENREC(J) - array containing vendor rec 

K°^Q’-^vS?iablL’'used^for eliminating blanks in typed-in 

-%^°griv^L;;t t^rcharacte. of the vendor record. 
KENDVEND - location of added on recor 
54B - octal code for *. 



SUBROUTINE VCORRECT 



SGfircht-y for a particular vendor record (by vendor code) 
Bl^ueified by the user. If the record has previously been 
deleted, a messacjo is displayed stating so. Once the record is 
lo'ind, it is displayed with a message saying the user has two 
alternatives: 1) to correct the record if his correction does 

not ext,H ed Uu' pre sent number of characters, or 2) to delete 
Litis record and .tdd a new one if his correction goes beyond the 
available sptice. This, he either corrects this record in place 
or calls on the VADD subroutine to add a new record. 




SUBROUTINE VGORRECT (cont.) 





_sk ; 

Display the entire record 
plus the message: 

You may correct this record 
if your correction does not 
exceed the present number of 
letters. If it does exceed, 
you must add a new record. 

If you mast add, type "add" 
on the top line. If not, make 
your correction^^ 
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SUBROUTINE VCORRECT (cont.) 




Variables 



JDIS - memory display buffer 
KVEN - vendor code typed in by user 
IVCODE ~ vendor code of record in memory 
MVEN - location of vendor record 

K - counter • ^ 

J(l), J(2), J(3), J(4), J(5), J(6) - variables 

beginning and ending locations of each line 



designating 
of the vendor 



the 

record . 



character of the vendor record 



I - counter 

ITEMP(I) - equivalent to 
53B - octal code for $ 

54B - octal code for * 

TPOUKrT - number of characters in a vendor record 

- teS variable to see if user wishes to add a new record 

lENDVEND - first available space at the end of t e ven 
NSUBR - variable specifying whether the new record is entire y 
new or is an added record because of corrections. 



IVEN - equivalent to KVEN 

IVENREC (K) - array containing the vendor record 

jp ^ IQ — variables used for eliminating blanks in 
records before storing them 



typed-in 
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SUBROUTINE VDELETE 



vendor 
record 
such . 
asking 



Searches for a particular 
specified by the user. If the 
a message is displayed stating 
displayed along with a message 

correct record. The tiser types in YES, NO, or MOyi, 
his decision. MOVE will take him out of the delete 
m wiu start the subroutine over with the user OPing rn a 
new vendor code. YES places zeros in the vendor co c c 
deleting the record. 



record (by vendor code) 
has already been deleted, 
Other\viSe, the record is 
whether or not it is the 

to show 
routine . 



thu s 
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SUBROUTINE VDELETE (coilt.) 




! 


Yes 

f 


K=K+1 


yf 


1 J(K) = ((I-1)/4)hY1 


, 5 


' , 




i+i i 




JK=((I-) 

J(l) 


C 1 

■ )/4)+l 
= 1 


> 


: , 


[call T\ 


/clear 




Displays message: 

The vendor you are 
requesting has 
already been deleted 



Encode ee 
of the vend 
line 


ich line 
lor record, 
r line 




/ 


Display the 
entire record ^ 




A 


^ i!s 



' 

Call 


£ - 

Wait 


> 




[ Return 



JL/ -U ^ w** ^ 

Was that the desired 
record. Type YES, NO, 
or MOVE. Type move 
if you wish to leave 
delete routine . 



Call Reset 




> 






Call 


Wait 
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SUBROUTINE VDELETE (cont.) 




Variables 



JDIS - memory display buffer 

KVEN - vendor code typed in by user. 

IVCODE — vendor code on record in memory. 

MVEN - location of desired vendor record in memory 

^ / 1 \ ^ ^ J(5) J(6) - variables designating the 

beginning and ending locations of each line of tne venaor 



I - counter 

ITEMP (I) - equivalent to a character o 

53B - octal code for $ 

54B - octal code for * 

IDIS - memory storage buffer 
4HYES,4HN0,4HM0VE - variables used to 



f the vendor record 



test for decision of 



u ser 
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SUBROUTINE VENDFILE 



A general calling program for all subroutines involving 
vendor records. 



Begin 

^ 

Displays message: 

What would you like to do 
with the vendor file. 

1 . Correct a record 

2. Delete a record 
3 . Add a record 

4. Move to new file 

5. Search file 



- N 


r 


[ Call Reset 




> 




Call Wait | 




1 


1 _ 


Call Answer | 




Variables 





JDIS - memory display buffer 

K - parameter specifying numoer of choice from message 
NSUBR - variable specifying the record to be added is entirely 
new and not a record that is being corrected. 
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SUBROUTINE WRONG 



Displays a message. 






Variables 



IRESP - memory display buffer 
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